home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / code / p_serlib.sit / Serial Library Source Code / serial.charArrived.dll.c < prev    next >
C/C++ Source or Header  |  1989-07-27  |  2KB  |  81 lines
  1. /***********************************************************************/
  2. /*    
  3. /*    serial.charArrived.dll.c
  4. /*    by Atul Butte
  5. /*    Copyright ⌐ 1989 by Microsoft Corporation
  6. /*    All Rights Reserved
  7. /*
  8. /*    version 1.0
  9. /*    
  10. /*    
  11. /*    This CALL/REGISTER returns true if there are characters waiting
  12. /*    in the buffer.
  13. /*    
  14. /*    Excel usage:
  15. /*    
  16. /*    = Register( "serial library", "serial.charArrived", "AH" )
  17. /*    = Call( ref, portNumber )
  18. /*    
  19. /*    where
  20. /*        portNumber        = number of port (1 = modem, 2 = printer)
  21. /*    
  22. /***********************************************************************/
  23.  
  24. /***********************************************************************/
  25. /*
  26. /*    D E F I N E S
  27. /*
  28. /***********************************************************************/
  29.  
  30. #define ROUTINE_NAME        "serial.charArrived"
  31. #define hNIL 0L
  32. #define pNIL 0L
  33.  
  34. /***********************************************************************/
  35. /*
  36. /*    I N C L U D E S
  37. /*
  38. /***********************************************************************/
  39.  
  40. #include "serial.h"
  41. #include "error.h"
  42. #include "get_port.h"
  43.  
  44. /***********************************************************************/
  45. /*
  46. /*    main
  47. /*
  48. /***********************************************************************/
  49.  
  50. pascal Boolean main( port )
  51.  
  52.     unsigned short            port;                    /* serial port to use */
  53.     
  54. {
  55.     register OSErr            err;                    /* result code from Toolbox routines */
  56.     short                    refIn;                    /* reference number for input port */
  57.     short                    refOut;                    /* reference number for output port */
  58.     long                    cch;                    /* count of characters in buffer */
  59.     
  60.     RememberA0( );
  61.     SetUpA4( );
  62.     
  63.     err = get_port( port, &refIn, &refOut );
  64.     if( err != noErr ) {
  65.         display_error( "Illegal port number." );
  66.         RestoreA4( );
  67.         return( err );
  68.     }
  69.     
  70.     err = SerGetBuf( refIn, &cch );
  71.     if( err != noErr ) {
  72.         display_error( "Error trying to count buffer." );
  73.         RestoreA4( );
  74.         return( false );
  75.     }
  76.     
  77.     RestoreA4( );
  78.     return( cch > 0 );
  79. }
  80.  
  81. #include "get_port.c"